home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Mega_magazine_1_19xx_Venturi.d64
/
samouk pol-ang
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
164 lines
10 if f=0 then f=1:load"fonters",8,1
20 poke 56334,0:poke 1,51
30 poke 1,55:poke 56334,1
40 poke 648,204:poke 53272,58
50 poke 56576,peek(56576)and252
60 poke 53280,15:poke 53281,15
70 poke 646,0:clr
80 print chr$(142)
90 print chr$(8)
100 dim a$(5000),b$(5000):a=0:b=0:n$="file"
110 printchr$(147)
120 print" [215]ukasz kalinowski przedstawia "
130 print
140 print" samouk [151]polsko-angielski[144]"
150 print
160 print" 1.wpisanie s[215][218]wek do s[215]ownika"
170 print" 2.wyszukiwanie s[215][218]wek
180 [153]" 3.opcje dyskietki
190 print" 4.nazwa zbioru
200 [153]" 5.skasowanie danych
210 print" 6.wyj[216]cie z programu
220 [153]" 7.help - polskie znaki
230 print"
240 [153]"wolna pamipeek(NULL) :";5000[171]a
250 [153]"nazwa zbioru : ";n$
251 [153]"copyright by (NULL)ukasz kalinowski"
260 [161] c$
270 [139] c$[178]"1" [167] 350
280 [139] c$[178]"2" [167] 540
290 [139] c$[178]"3" [167] 800
300 [139] c$[178]"4" [167] 1170
310 [139] c$[178]"5" [167] 1230
320 [139] c$[178]"6" [167] 1330
330 [139] c$[178]"7" [167] 1420
340 [137] 260
350 [143] * opcja 1 *
360 a[178]a[170]1:[139] a[177]5000 [167] 110
370 [153] [199](147)
380 [153]"wpisywanie s(NULL)(NULL)wek do s(NULL)ownika."
390 [153]
400 [153]"s(NULL)owo numer :";a
410 [153]
420 [153]"pokeznaczenie polskie :stop"
430 [159] 1,0:[132]1,a$(a):[160] 1
440 [139] [195](a$(a))[177]25 [167] 420
450 [153]"pokeznaczenie angielskie :stop"
460 [159] 1,0:[132]1,b$(a):[160] 1
470 [139] [195](b$(a))[177]25 [167] 460
480 [153]:[153]
490 [153]" czy wszystko (poketstop/pokenstop)
500 get c$
510 if c$="t" then 110
520 if c$="n" then 360
530 goto 500
540 rem * opcja 2 *
550 if a=0 then 110
560 print chr$(147)
570 print"wyszukiwanie s[215][218]wek."
580 print
590 print"wpisz s[215][218]wko :"
600 open 1,0:input#1,d$:close 1
610 if len(d$)>25 then 590
620 for d=1 to a:if a$(d)=d$ then 740
630 next d
640 for d=1 to a:if b$(d)=d$ then 740
650 next d
660 print:print
670 print"[151]s[215][218]wko nieznalezione.[144]"
680 print
690 print" czy wszystko ([151]t[144]/[151]n[144])
700 [161] c$
710 [139] c$[178]"t" [167] 110
720 [139] c$[178]"n" [167] 540
730 [137] 700
740 [153]:[153]
750 [153]"pokeznaczenie polskie :stop"
760 [153] a$(d)
770 [153]"pokeznaczenie angielskie :stop"
780 [153] b$(d)
790 [137] 680
800 [143] * opcja 3 *
810 [153] [199](147):r$[178][199](13)
820 [153]"opcje dyskietki."
830 [153]
840 [153]"1.zapis s(NULL)ownika na dysk "
850 [153]"2.odczyt s(NULL)ownika z dysku"
860 [153]"3.powr(NULL)t do menu "
870 [161] c$
880 [139] c$[178]"1" [167] 920
890 [139] c$[178]"2" [167] 1060
900 [139] c$[178]"3" [167] 110
910 [137] 870
920 [153] [199](147)
930 [153]"nazwa zbioru : ";n$
940 [159] 15,8,15,"i0:":[160] 15
950 [159] 1,8,1,"file."[170]n$[170]",s":[152]1,a
960 [129] d[178]1 [164] a
970 [152]1,a$(d);r$;b$(d);r$;
980 [130] d:[160] 1
990 [153]
1000 [159] 15,8,15:[132]15,a$,b$,c$,d$:[160] 15
1010 [153]"pokestatus :stop ";a$[170]" "[170]b$[170]" "[170]c$[170]","[170]d$
1020 [153]
1030 [153]"wci(NULL)nij pokereturnstopwait":[153]
1040 [161] q$:[139] q$[179][177][199](13) [167] 1040
1050 [137] 800
1060 [153] [199](147)
1070 [153]"nazwa zbioru : ";n$:[153]
1080 [159] 15,8,15,"i0:":[160] 15
1090 [159] 1,8,0,"file."[170]n$[170]",s":[132]1,a
1100 [129] d[178]1 [164] a:[132]1,a$(d):[132]1,b$(d):[130] d:[160] 1
1110 [159] 15,8,15:[132]15,a$,b$,c$,d$:[160] 15
1120 [153]"pokestatus :stop ";a$[170]" "[170]b$[170]" "[170]c$[170]","[170]d$
1130 [153]
1140 [153]"wci(NULL)nij pokereturnstopwait"
1150 [161] q$:[139] q$[179][177][199](13) [167] 1150
1160 [137] 800
1170 [143] * opcja 4 *
1180 [153] [199](147)
1190 [153]"nazwa zibioru :":[153]
1200 [159] 1,0:[132]1,n$:[160] 1
1210 [139] [195](n$)[177]11 [167] 1190
1220 [137] 110
1230 [143] * opcja 5 *
1240 [153] [199](147)
1250 [153]"kasowanie danych."
1260 [153]
1270 [153]"czy skasowa(NULL) (poketstop/pokenstop)"
1280 [161] q$
1290 [139] q$[178]"t" [167] 1320
1300 [139] q$[178]"n" [167] 110
1310 [137] 1280
1320 [156]:[137] 100
1330 [143] * opcja 6
1340 [153] [199](147)
1350 [153]"wyj(NULL)cie z programu."
1360 [153]
1370 [153]"czy wyj(NULL)(NULL) (poketstop/pokenstop)
1380 get q$
1390 if q$="t" then print"[147]":new
1400 if q$="n" then 110
1410 goto 1380
1420 rem * opcja 7 *
1430 print chr$(147)
1440 print"polskie znaki :"
1450 print
1460 print"shift + a = [193]
1470 [153]"shift + s = (NULL)
1480 print"shift + b = [194]
1490 [153]"shift + w = (NULL)
1500 print"shift + q = [209]
1510 [153]"shift + z = (NULL)
1520 print"shift + x = [216]
1530 [153]"shift + ^ = (NULL)
1540 print"c= + * = [223]
1550 [153]"
1560 print"[215]ukasz kalinowski
1570 [153]"ul.trybunalska 21/3
1580 print"58-100 [216]widnica
1590 [153]
1600 [153]" wci(NULL)nij dowolny klawisz."
1610 [161] q$:[139] q$[178]"" [167] 1610
1620 [137] 110